home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Herra
/
SLANG10.ZIP
/
CALC.VEC
< prev
next >
Wrap
Text File
|
1997-09-14
|
314b
|
21 lines
print "SLANG calculator example"; "quit to exit";
#start
s = "3"
x = 1
input "Input expression: ", s
if strchr(s, "quit") then goto finish endif
str = " "
if strchr(s, "=") = 0 then
puttoken(str, "x = ")
puttoken(str, s)
endif
splay(str)
print "x = ", x;
goto start
#finish
end